home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
winsock
/
ircii2-6.zip
/
SCRIPTS\REPEAT
< prev
next >
Wrap
Text File
|
1994-12-28
|
298b
|
21 lines
# Use a simply while loop to repeat a command.
alias repeat {
@ rep.cnt = [$0]
while ( rep.cnt > 0 )
{
$1-
@rep.cnt = rep.cnt - 1
}
^assign -rep.cnt
}
# Do the samn thing with recursion See.. SET MAX_RECURSIONS
alias recrepeat {
if ([$0] > 0)
{
$1-
recrepeat ${[$0] -1} $1-
}
}